unit uniMensPadrao;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, StdCtrls, Grids, DBGrids, Buttons, DB, ADODB;

type
  TfrmMensPadrao = class(TForm)
    Panel1: TPanel;
    Panel2: TPanel;
    DBGrid1: TDBGrid;
    Panel3: TPanel;
    lblMens1: TLabel;
    lblMens2: TLabel;
    DS_Temp: TDataSource;
    QR_Temp: TADOQuery;
    btnConfirma: TSpeedButton;
    btnCancelar: TSpeedButton;
    procedure btnConfirmaClick(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure btnCancelarClick(Sender: TObject);
  private
    { Private declarations }
  public
    bRetorno:boolean;
  end;

var
  frmMensPadrao: TfrmMensPadrao;

implementation

uses uniDtmSisnnovi;

{$R *.dfm}

procedure TfrmMensPadrao.btnConfirmaClick(Sender: TObject);
begin
  bRetorno := True;
  Close;
end;

procedure TfrmMensPadrao.FormShow(Sender: TObject);
begin
  bRetorno := False;
end;

procedure TfrmMensPadrao.btnCancelarClick(Sender: TObject);
begin
  bRetorno := False;
  Close;
end;

end.
